home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEV / I-Z / Lex.cpt / Lex / LEXLIB.π folder / GETTOK.C < prev    next >
Text File  |  1990-06-03  |  982b  |  41 lines
  1. /*
  2.   HEADER: CUG    nnn.nn;
  3.   TITLE:    LEX - A Lexical Analyser Generator
  4.   VERSION:       1.0 for IBM-PC
  5.   DATE:    Jan 30, 1985
  6.   DESCRIPTION:   A Lexical Analyser Generator. From UNIX
  7.   KEYWORDS:      Lexical Analyser Generator YACC C PREP
  8.   SYSTEM:    IBM-PC and Compatiables
  9.   FILENAME:      GETTOK.C
  10.   WARNINGS:      This program is not for the casual user. It will
  11.     be useful primarily to expert developers.
  12.   CRC:    N/A
  13.   SEE-ALSO:      YACC and PREP
  14.   AUTHORS:       Scott Guthery 11100 leafwood lane Austin, TX 78750
  15.   COMPILERS:     DESMET-C
  16.   REFERENCES:    UNIX Systems Manuals
  17. */
  18. /*
  19.  * Bob Denny     28-Aug-82  Remove reference to stdio.h
  20.  * Scott Guthery 20-Nov-83      Adapt for IBM PC & DeSmet C
  21.  */
  22.  
  23. #include "lex.h"
  24.  
  25. extern char *llend, *llbuf;
  26.  
  27. SHORTINT
  28. gettoken(char *lltb, int lltbsiz)
  29. {
  30.     register char *lp, *tp, *ep;
  31.  
  32.     tp = lltb;
  33.     ep = tp + lltbsiz - 1;
  34.     for (lp = llbuf; lp < llend && tp < ep;) {
  35.         *tp = *lp++;
  36.         tp++;
  37.         }
  38.     *tp = '\0';
  39.     return (SHORTINT)(tp-lltb);
  40. }
  41.